El Mac 1/Magazine.iso/EL MAC 1/Shareware/HyperCard/XCMD Docs/CompileIt! Source Code/getCardPicts()

Text File | 1995-09-11 | 358 b | 10 lines | [TEXT/ttxt]

function getCardPicts
  put "" into PICTList
  repeat with x=1 to Count1Resources("PICT")
    put get1Indresource("PICT",x) into ResHndl
    GetResInfo ResHndl,ResType,ResID,ResName
    if word 1 to 2 of ResName="card id" then put ResID && quote & resName & quote & "," after PICTlist
    releaseResource ResHndl
  end repeat
return PICTList
end getCardPICTs